home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / VI5.ARJ / VIDEMO.EXE / SAMPLE3.PRG < prev    next >
Text File  |  1992-01-21  |  964b  |  28 lines
  1. ************************************************************************
  2. * SAMPLE3.PRG                           Peter M. Freese
  3. * 1/20/92                               Pinnacle Publishing, Inc.
  4. *
  5. * Source code demonstration of Group Box and Radio Button
  6. ************************************************************************
  7.  
  8. #include "vi.ch"
  9. #include "inkey.ch"
  10.  
  11. FUNCTION Sample3()
  12. LOCAL oWin,oGB
  13.   // create a window
  14.   oWin := VWindowNew(12,20,27,60,0,WS_DOUBLEBORDER+WS_TITLE,;
  15.     HIWHITE,GREEN,"Group Box and Radio Button Classes")
  16.  
  17.   // create a group box control
  18.   oGB := VGroupBoxNew(oWin,3,10,10,30,;
  19.     GB_BORDER+GB_TITLETHRU+GB_TITLELEFT,"Flavor")
  20.  
  21.   // create check box control
  22.   VRadioButtonNew(oWin,oGB,K_ALT_A,1,2,0,BLACK,.T.,"&Apple")
  23.   VRadioButtonNew(oWin,oGB,K_ALT_O,3,2,0,BLACK,.F.,"&Orange")
  24.   VRadioButtonNew(oWin,oGB,K_ALT_L,5,2,0,BLACK,.F.,"&Lemon")
  25.  
  26.   // return window object to calling routine
  27. RETURN oWin
  28.